program prog;


var
	UserFile : Text;
    TFile : String;

begin

 Assign(UserFile, 'c:\temp\ficheroUno.txt');

 Reset(UserFile);

 Repeat
  Readln(UserFile,TFile);
  Writeln(TFile);
 Until Eof(UserFile);

 Close(UserFile);

end.
